﻿Module Module1
  Sub Main()

    Dim stringaInput As String
    Dim valIniziale As Integer
    Dim counter

    Console.Write("Inserisci il numero iniziale del contatore: ")
    stringaInput = Console.ReadLine
    If stringaInput = "" Then
      counter = New Contatore()
    Else
      valIniziale = Integer.Parse(Console.ReadLine)
      counter = New Contatore(valIniziale)
    End If

    Do While counter.Leggi < 100
      counter.Incrementa()
      Console.WriteLine(counter.Leggi)
    Loop
    Console.ReadLine()
  End Sub
End Module

